home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 15
/
Aminet 15 - Nov 1996.iso
/
Aminet
/
disk
/
cdrom
/
SkandalfoCDP.lha
/
SCDPlayer
/
Rexx
/
Repeat1.scdp
< prev
next >
Wrap
Text File
|
1996-09-07
|
410b
|
35 lines
/* Skandalfo CD Player ARexx script
** Repeat-1-track mode.
*/
OPTIONS RESULTS
STATUS
ST=RESULT
IF ST~=PLAYING THEN RETURN
PLAYINGTRACK
TR=RESULT
FLAG=1
PLAYTRACK TR
USERACTION
DO WHILE FLAG
ADDRESS COMMAND Delay 500
USERACTION
UA=RESULT
IF UA~=0 THEN RETURN
STATUS
ST=RESULT
IF ST=NODISK THEN FLAG=0
IF ST=STOPPED THEN PLAYTRACK TR
END